home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / boot / 1TouchMac2.lha / OneTouchMac.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-09-17  |  4.0 KB  |  148 lines
  1. G4C
  2.  
  3. WINBIG 168 314 253 232 "OneTouchMac prefs"
  4. WinType 11110001
  5.  
  6. xOnLoad
  7. GuiOpen OneTouchMac.gc
  8.  
  9. xOnClose
  10. GuiQuit OneTouchMac.gc
  11.  
  12. ;******** Init ********
  13. LMBStartup = ''
  14. RMBStartup = ''
  15. MMBStartup = ''
  16.  
  17. ;** Titre Box Startup
  18. TEXT 69 3 98 17 "Choose your startup !" 21 NOBOX
  19.  
  20. ;** Box Startup
  21. BOX 3 21 247 173 OUT ICONDROP
  22.  
  23. ;******************* Left Mouse Button ***********************
  24.  
  25. ;** Bouton startup 1
  26. XBUTTON 13 49 33 18 "get"
  27. LMBStartup = ''
  28. ReqFile -1 -1 300 200 "Choose Startup for LMB" LOAD LMBStartup 'S:'
  29. Update OneTouchMac.gc 1 $LMBStartup
  30.  
  31. ;** Titre LMB
  32. TEXT 14 27 52 17 "Left Mouse Button" 17 NOBOX
  33.  
  34. ;** LBM Path
  35. TEXT 55 49 180 18 "" 100 BOX
  36. GadID 1
  37.  
  38. ;* ;******************* Middle mouse button **********************
  39. ;* 
  40. ;* ;** Titre MMB
  41. TEXT 14 77 52 17 "Middle Mouse Button" 19 NOBOX
  42.  
  43. ;** Bouton Startup 2
  44. XBUTTON 14 101 33 18 "get"
  45. MMBStartup = ''
  46. ReqFile -1 -1 300 200 "Choose Startup for MMB" LOAD MMBStartup 'S:'
  47. Update OneTouchMAc.gc 2 $MMBStartup
  48.  
  49. ;** MMB Path
  50. TEXT 56 101 180 18 "" 100 BOX
  51. GadID 2
  52.  
  53. ;* ;******************* Right Mouse button ************************
  54. ;* 
  55. ;* ;** Titre RMB
  56. TEXT 15 131 53 17 "Right Mouse Button" 18 NOBOX
  57.  
  58. ;** Bouton Startup 3
  59. XBUTTON 15 155 33 18 "get"
  60. RMBStartup = ''
  61. ReqFile -1 -1 300 200 "Choose Startup for RMB" LOAD RMBStartup 'S:'
  62. Update OneTouchMac.gc 3 $RMBStartup
  63.  
  64. ;** RMB Path
  65. TEXT 57 156 180 18 "" 100 BOX
  66. GadID 3
  67.  
  68. ;* ;******************* Principals Actions ************************
  69. ;* 
  70. ;* ;** NEW Gad
  71. XBUTTON 180 201 68 19 "EXIT"
  72. GuiQuit OneTouchMac.gc
  73.  
  74. ;** NEW GAD
  75. XBUTTON 5 201 68 19 "Install"
  76.  
  77. ;/**** ecriture debut fichier ****/
  78. CLI "echo >ram:startup-1TM"
  79. append ram:startup-1TM ";********* Added by OneTouchMac *********\n"
  80. append ram:startup-1TM "FailAt 1 \n"
  81.  
  82. ;/**** Tests pour connaitre les commandes à envoyer ****/
  83. IF $LMBStartup != ''
  84. AND $MMBStartup = ''
  85. AND $RMBStartup = ''
  86. append ram:startup-1TM "OneTouchMac LMB $LMBStartup\n"
  87. ENDIF
  88. IF $LMBStartup != ''
  89. AND $RMBStartup != ''
  90. AND $MMBStartup = ''
  91. append ram:startup-1TM "OneTouchMac LMB $LMBStartup RMB $RMBStartup\n"
  92. ENDIF
  93. IF $LMBStartup != ''
  94. AND $MMBStartup != ''
  95. AND $RMBStartup = ''
  96. append ram:startup-1TM "OneTouchMac LMB $LMBStartup MMB $MMBStartup\n"
  97. ENDIF
  98. IF $LMBStartup != ''
  99. AND $MMBStartup != ''
  100. AND $RMBStartup != ''
  101. append ram:startup-1TM "OneTouchMac LMB $LMBStartup MMB $MMBStartup RMB $RMBStartup\n"
  102. ENDIF
  103. IF $LMBStartup = ''
  104. AND $MMBStartup = ''
  105. AND $RMBStartup != ''
  106. append ram:startup-1TM "OneTouchMac RMB $RMBStartup\n"
  107. ENDIF
  108. IF $LMBStartup = ''
  109. AND $MMBStartup != ''
  110. AND $RMBStartup = ''
  111. append ram:startup-1TM "OneTouchMac MMB $MMBStartup\n"
  112. ENDIF
  113. IF $LMBStartup = ''
  114. AND $MMBStartup != ''
  115. AND $RMBStartup != ''
  116. append ram:startup-1TM "OneTouchMac MMB $MMBStartup RMB $RMBStartup\n"
  117. ENDIF
  118.  
  119. ;/* procedure d'install dans la startup. Verify qu'il y a au moins une startup */
  120. IF $LMBStartup = ''
  121. AND $MMBStartup = ''
  122. AND $RMBStartup = ''
  123. ezreq 'Can t Install !\nYou don t have entered any startup file' Abort ''
  124. GuiQuit OneTouchMac.gc
  125. ENDIF
  126. IF $LMBStartup != ''
  127. OR $MMBStartup != ''
  128. OR $RMBStartup != ''
  129. append ram:startup-1TM ";*********** End of OneTouchMac ***********\n\n"
  130. CLI "Copy s:Startup-sequence s:Startup-sequence.1TMBackup QUIET"
  131. CLI "Join ram:Startup-1TM S:Startup-sequence TO Ram:Startup-Final"
  132. CLI "Copy ram:Startup-Final s:Startup-sequence QUIET"
  133. CLI "Delete ram:Startup-1TM ram:Startup-Final QUIET"
  134. ezreq 'OneTouchMac installed Successfully !\nA backup of your startup-sequence is in S:\nnamed "startup-sequence.1TMBackup"\n\nDON T DELETE IT IF YOU WANT TO REMOVE' OK ''
  135. ENDIF
  136.  
  137. ;/* Uninstall procedure */
  138. ;** NEW GAD
  139. XBUTTON 93 201 68 19 "Remove"
  140. IFEXISTS FILE s:startup-sequence.1TMBackup
  141. CLI "Copy s:Startup-sequence.1TMBackup s:Startup-sequence QUIET"
  142. CLI "Delete s:Startup-sequence.1TMBackup QUIET"
  143. ezreq 'OneTouchMac has been successfully uninstalled\nfrom your startup-sequence and has deleted\n the backup that was made' OK ''
  144. ELSE
  145. ezreq 'Couldn t remove OneTouchMAc from your Startup\nbecause either it was not installed or \nyou have deleted the backup copie of your Startup...\n\nSee OneTouchMac.guide' OK ''
  146. ENDIF
  147.  
  148.